Aminet 34

home *** CD-ROM | disk | FTP | other *** search
/ Aminet 34 / Aminet 34 (2000)(Schatztruhe)[!][Dec 1999].iso / Aminet / util / misc / ButtonBar.lha / Source / ButtonBar-eventloop.bb2 < prev next >
Relocatable Object Module | 1999-09-07 | 7.4 KB
view JSON data |
view as text |
open on a Mac |
open on a PC

This file was processed as: Relocatable Object Module (other/relocatableObjectModule).
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`1%`	dexvert	Relocatable Object Module `(other/relocatableObjectModule)`	magic	Unsupported
`100%`	file	8086 relocatable (Microsoft), " eventloop", 1st record data length 187, 2nd record type 0x74, 2nd record data length 25183	default
`99%`	file	data	default
`100%`	TrID	OMF - Relocatable Object Module Format	default (weak)
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 80 bb 00 20 20 65 76 65 | 6e 74 6c 6f 6f 70 00 00 |...  eve|ntloop..|
|00000010| 20 20 c5 37 00 20 20 80 | bb 00 20 20 20 20 80 37 |  .7.  .|..    .7|
|00000020| 00 20 20 20 20 61 2e 6c | 20 20 20 20 20 20 20 20 |.    a.l|        |
|00000030| 20 20 20 20 20 20 20 20 | 3d 20 20 c5 03 00 20 20 |        |=  ...  |
|00000040| 20 20 43 6f 6d 6d 6f 64 | 69 74 79 45 76 65 6e 74 |  Commod|ityEvent|
|00000050| 5f 62 20 20 20 3d 20 28 | ac 85 3d 2d 31 29 00 20 |_b   = (|..=-1). |
|00000060| 20 20 20 48 6f 74 4b 65 | 79 48 69 74 5f 62 20 20 |   HotKe|yHit_b  |
|00000070| 20 20 20 20 20 20 3d 20 | 28 ac 83 3d 30 29 00 20 |      = |(..=0). |
|00000080| 20 20 20 50 6f 72 74 45 | 76 65 6e 74 2e 6c 20 20 |   PortE|vent.l  |
|00000090| 20 20 20 20 20 20 3d 20 | ae 0c 28 50 6f 72 74 2e |      = |..(Port.|
|000000a0| 6c 29 00 20 20 80 bc 20 | 28 61 3e 30 29 20 80 8a |l).  .. |(a>0) ..|
|000000b0| 20 43 6f 6d 6d 6f 64 69 | 74 79 45 76 65 6e 74 5f | Commodi|tyEvent_|
|000000c0| 62 20 80 8a 20 28 50 6f | 72 74 45 76 65 6e 74 2e |b .. (Po|rtEvent.|
|000000d0| 6c 3c 3e 30 29 00 00 20 | 20 2e 72 65 78 78 70 6f |l<>0).. | .rexxpo|
|000000e0| 72 74 00 20 20 80 0b 20 | 28 50 6f 72 74 45 76 65 |rt.  .. |(PortEve|
|000000f0| 6e 74 2e 6c 3c 3e 30 29 | 20 80 42 20 ae 0d 28 50 |nt.l<>0)| .B ..(P|
|00000100| 6f 72 74 45 76 65 6e 74 | 2e 6c 29 00 20 20 20 20 |ortEvent|.l).    |
|00000110| 72 65 78 78 24 3d dc 98 | 28 ae 0a 28 50 6f 72 74 |rexx$=..|(..(Port|
|00000120| 45 76 65 6e 74 2e 6c 2c | 31 29 29 00 20 20 20 20 |Event.l,|1)).    |
|00000130| 80 0b 20 72 65 78 78 24 | 3d 20 20 20 20 20 20 20 |.. rexx$|=       |
|00000140| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000150| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000160| 20 22 57 41 4b 45 55 50 | 22 00 20 20 20 20 20 20 | "WAKEUP|".      |
|00000170| 66 69 6e 64 5f 61 6e 64 | 5f 6c 65 61 72 6e 5f 73 |find_and|_learn_s|
|00000180| 63 72 65 65 6e 7b 7d 00 | 00 20 20 20 20 20 20 c5 |creen{}.|.      .|
|00000190| 01 20 23 57 31 2c 70 6f | 73 78 2c 70 6f 73 79 2c |. #W1,po|sx,posy,|
|000001a0| 6c 61 72 67 66 65 6e 2c | 62 75 74 74 6f 6e 5f 68 |largfen,|button_h|
|000001b0| 65 69 67 68 74 2c 24 31 | 38 30 30 2c 22 22 2c 31 |eight,$1|800,"",1|
|000001c0| 2c 32 00 20 20 20 20 20 | 20 c6 8e 20 30 2c 23 57 |,2.     | .. 0,#W|
|000001d0| 31 00 20 20 20 20 20 20 | c4 02 20 23 57 31 00 00 |1.      |.. #W1..|
|000001e0| 20 20 20 20 20 20 80 16 | 20 6d 65 6e 75 3d 31 20 |      ..| menu=1 |
|000001f0| 80 18 20 6e 75 6d 62 65 | 72 5f 6f 66 5f 6d 65 6e |.. numbe|r_of_men|
|00000200| 75 73 00 20 20 20 20 20 | 20 20 20 80 0b 20 6d 65 |us.     |   .. me|
|00000210| 6e 75 5f 6f 70 65 6e 5f | 62 28 6d 65 6e 75 29 00 |nu_open_|b(menu).|
|00000220| 20 20 20 20 20 20 20 20 | 20 20 6f 70 65 6e 5f 6d |        |  open_m|
|00000230| 65 6e 75 7b 6d 65 6e 75 | 7d 00 20 20 20 20 20 20 |enu{menu|}.      |
|00000240| 20 20 80 02 20 80 0b 00 | 20 20 20 20 20 20 80 17 |  .. ...|      ..|
|00000250| 00 20 20 20 20 20 20 ae | 08 20 50 6f 72 74 45 76 |.      .|. PortEv|
|00000260| 65 6e 74 2e 6c 2c 30 2c | 30 2c 22 4f 2e 4b 22 00 |ent.l,0,|0,"O.K".|
|00000270| 20 20 20 20 80 05 20 65 | 76 65 6e 74 6c 6f 6f 70 |    .. e|ventloop|
|00000280| 20 3a 20 80 c0 20 3a 20 | 80 0b 20 72 65 78 78 24 | : .. : |.. rexx$|
|00000290| 3d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |=       |        |
|000002a0| 22 53 4c 45 45 50 22 00 | 20 20 20 20 20 20 73 6c |"SLEEP".|      sl|
|000002b0| 65 65 70 7b 7d 00 20 20 | 20 20 20 20 ae 08 20 50 |eep{}.  |    .. P|
|000002c0| 6f 72 74 45 76 65 6e 74 | 2e 6c 2c 30 2c 30 2c 22 |ortEvent|.l,0,0,"|
|000002d0| 4f 2e 4b 22 00 20 20 20 | 20 80 05 20 65 76 65 6e |O.K".   | .. even|
|000002e0| 74 6c 6f 6f 70 20 3a 20 | 80 c0 20 3a 20 80 0b 20 |tloop : |.. : .. |
|000002f0| 72 65 78 78 24 3d 20 20 | 20 20 20 20 20 20 20 20 |rexx$=  |        |
|00000300| 20 20 20 20 20 22 51 55 | 49 54 22 00 20 20 20 20 |     "QU|IT".    |
|00000310| 20 20 ae 08 20 50 6f 72 | 74 45 76 65 6e 74 2e 6c |  .. Por|tEvent.l|
|00000320| 2c 30 2c 30 2c 22 4f 2e | 4b 22 00 20 20 20 20 20 |,0,0,"O.|K".     |
|00000330| 20 65 78 69 74 5f 62 20 | 3d 20 bc 0e 00 20 20 20 | exit_b |= ...   |
|00000340| 20 80 05 20 65 6e 64 65 | 76 65 6e 74 6c 6f 6f 70 | .. ende|ventloop|
|00000350| 20 3a 20 80 c0 20 3a 20 | 80 0b 20 72 65 78 78 24 | : .. : |.. rexx$|
|00000360| 3d 20 20 20 20 20 20 20 | 20 20 20 20 20 22 52 45 |=       |     "RE|
|00000370| 53 54 41 52 54 22 00 20 | 20 20 20 20 20 ae 08 20 |START". |     .. |
|00000380| 50 6f 72 74 45 76 65 6e | 74 2e 6c 2c 30 2c 30 2c |PortEven|t.l,0,0,|
|00000390| 22 4f 2e 4b 22 00 20 20 | 20 20 20 20 65 78 69 74 |"O.K".  |    exit|
|000003a0| 5f 62 20 3d 20 bc 0e 00 | 20 20 20 20 20 20 72 65 |_b = ...|      re|
|000003b0| 73 74 61 72 74 5f 62 20 | 3d 20 bc 0e 00 20 20 20 |start_b |= ...   |
|000003c0| 20 80 05 20 65 6e 64 65 | 76 65 6e 74 6c 6f 6f 70 | .. ende|ventloop|
|000003d0| 20 3a 20 80 c0 00 20 20 | 20 20 ae 08 20 50 6f 72 | : ...  |  .. Por|
|000003e0| 74 45 76 65 6e 74 2e 6c | 2c 31 30 2c 31 31 2c 22 |tEvent.l|,10,11,"|
|000003f0| 55 6e 6b 6e 6f 77 6e 20 | 63 6f 6d 6d 61 6e 64 2e |Unknown |command.|
|00000400| 22 00 20 20 20 20 80 05 | 20 65 76 65 6e 74 6c 6f |".    ..| eventlo|
|00000410| 6f 70 00 20 20 80 c0 00 | 00 20 20 2e 63 6f 6d 6d |op.  ...|.  .comm|
|00000420| 6f 64 69 74 79 00 20 20 | 80 0b 20 43 6f 6d 6d 6f |odity.  |.. Commo|
|00000430| 64 69 74 79 45 76 65 6e | 74 5f 62 00 20 20 20 20 |dityEven|t_b.    |
|00000440| 80 0b 20 48 6f 74 4b 65 | 79 48 69 74 5f 62 00 20 |.. HotKe|yHit_b. |
|00000450| 20 20 20 20 20 cf 07 20 | 30 00 20 20 20 20 20 20 |     .. |0.      |
|00000460| c5 1f 20 30 00 20 20 20 | 20 20 20 80 0b 20 6f 70 |.. 0.   |   .. op|
|00000470| 65 6e 5f 6f 6e 5f 68 6f | 74 6b 65 79 5f 62 00 20 |en_on_ho|tkey_b. |
|00000480| 20 20 20 20 20 20 20 80 | 16 20 6d 65 6e 75 3d 31 |       .|. menu=1|
|00000490| 20 80 18 20 6e 75 6d 62 | 65 72 5f 6f 66 5f 6d 65 | .. numb|er_of_me|
|000004a0| 6e 75 73 00 20 20 20 20 | 20 20 20 20 20 20 80 0b |nus.    |      ..|
|000004b0| 20 6d 65 6e 75 5f 6f 70 | 65 6e 5f 62 28 6d 65 6e | menu_op|en_b(men|
|000004c0| 75 29 3d bc 0f 00 20 20 | 20 20 20 20 20 20 20 20 |u)=...  |        |
|000004d0| 20 20 6f 70 65 6e 5f 6d | 65 6e 75 7b 6d 65 6e 75 |  open_m|enu{menu|
|000004e0| 7d 00 20 20 20 20 20 20 | 20 20 20 20 80 c0 00 20 |}.      |    ... |
|000004f0| 20 20 20 20 20 20 20 80 | 17 00 20 20 20 20 20 20 |       .|..      |
|00000500| 80 c0 00 20 20 20 20 80 | c0 00 20 20 20 20 80 05 |...    .|..    ..|
|00000510| 20 65 76 65 6e 74 6c 6f | 6f 70 00 20 20 80 c0 00 | eventlo|op.  ...|
|00000520| 00 20 20 2e 6b 65 79 00 | 20 20 80 0b 20 61 3d 24 |.  .key.|  .. a=$|
|00000530| 34 30 30 20 20 20 3b 4b | 45 59 20 50 52 45 53 53 |400   ;K|EY PRESS|
|00000540| 45 44 00 00 20 20 20 20 | 6b 65 79 3d c5 40 00 20 |ED..    |key=.@. |
|00000550| 20 20 20 63 75 72 73 6f | 72 5f 6d 6f 76 65 64 5f |   curso|r_moved_|
|00000560| 62 20 3d 20 bc 0f 00 20 | 20 20 20 80 0b 20 28 6b |b = ... |   .. (k|
|00000570| 65 79 3d 23 45 53 43 5f | 53 43 41 4e 43 4f 44 45 |ey=#ESC_|SCANCODE|
|00000580| 29 20 80 8a 20 28 6b 65 | 79 3d 31 36 20 80 42 20 |) .. (ke|y=16 .B |
|00000590| 71 5f 69 73 5f 6b 65 79 | 5f 66 6f 72 5f 71 75 69 |q_is_key|_for_qui|
|000005a0| 74 5f 62 29 00 20 20 20 | 20 20 20 65 78 69 74 5f |t_b).   |   exit_|
|000005b0| 62 20 3d 20 bc 0e 00 20 | 20 20 20 80 05 20 65 6e |b = ... |   .. en|
|000005c0| 64 65 76 65 6e 74 6c 6f | 6f 70 20 3a 20 80 c0 20 |deventlo|op : .. |
|000005d0| 3a 20 80 0b 20 28 6b 65 | 79 3d 23 53 50 41 43 45 |: .. (ke|y=#SPACE|
|000005e0| 5f 53 43 41 4e 43 4f 44 | 45 29 20 80 8a 20 28 6b |_SCANCOD|E) .. (k|
|000005f0| 65 79 3d 23 45 4e 54 45 | 52 5f 53 43 41 4e 43 4f |ey=#ENTE|R_SCANCO|
|00000600| 44 45 29 00 20 20 20 20 | 20 20 c2 08 20 30 00 20 |DE).    |  .. 0. |
|00000610| 20 20 20 20 20 80 37 00 | 20 20 20 20 80 05 20 65 |     .7.|    .. e|
|00000620| 6e 64 65 76 65 6e 74 6c | 6f 6f 70 20 3a 20 80 c0 |ndeventl|oop : ..|
|00000630| 20 20 20 20 20 20 20 20 | 20 20 20 3a 20 80 0b 20 |        |   : .. |
|00000640| 28 6b 65 79 3d 23 4c 45 | 46 54 5f 53 43 41 4e 43 |(key=#LE|FT_SCANC|
|00000650| 4f 44 45 29 00 20 20 20 | 20 20 20 64 78 3d 2d 31 |ODE).   |   dx=-1|
|00000660| 20 3a 20 64 79 3d 20 30 | 20 3a 20 63 75 72 73 6f | : dy= 0| : curso|
|00000670| 72 5f 6d 6f 76 65 64 5f | 62 20 3d 20 bc 0e 00 20 |r_moved_|b = ... |
|00000680| 20 20 20 80 c0 20 20 20 | 20 20 20 20 20 20 20 20 |   ..   |        |
|00000690| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000006a0| 20 20 20 20 3a 20 80 0b | 20 28 6b 65 79 3d 23 52 |    : ..| (key=#R|
|000006b0| 49 47 48 54 5f 53 43 41 | 4e 43 4f 44 45 29 00 20 |IGHT_SCA|NCODE). |
|000006c0| 20 20 20 20 20 64 78 3d | 20 31 20 3a 20 64 79 3d |     dx=| 1 : dy=|
|000006d0| 20 30 20 3a 20 63 75 72 | 73 6f 72 5f 6d 6f 76 65 | 0 : cur|sor_move|
|000006e0| 64 5f 62 20 3d 20 bc 0e | 00 20 20 20 20 80 c0 20 |d_b = ..|.    .. |
|000006f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000700| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 20 |        |      : |
|00000710| 80 0b 20 28 6b 65 79 3d | 23 55 50 5f 53 43 41 4e |.. (key=|#UP_SCAN|
|00000720| 43 4f 44 45 29 00 20 20 | 20 20 20 20 64 78 3d 20 |CODE).  |    dx= |
|00000730| 30 20 3a 20 64 79 3d 2d | 31 20 3a 20 63 75 72 73 |0 : dy=-|1 : curs|
|00000740| 6f 72 5f 6d 6f 76 65 64 | 5f 62 20 3d 20 bc 0e 00 |or_moved|_b = ...|
|00000750| 20 20 20 20 80 c0 20 20 | 20 20 20 20 20 20 20 20 |    ..  |        |
|00000760| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000770| 20 20 20 20 20 3a 20 80 | 0b 20 28 6b 65 79 3d 23 |     : .|. (key=#|
|00000780| 44 4f 57 4e 5f 53 43 41 | 4e 43 4f 44 45 29 00 20 |DOWN_SCA|NCODE). |
|00000790| 20 20 20 20 20 64 78 3d | 20 30 20 3a 20 64 79 3d |     dx=| 0 : dy=|
|000007a0| 20 31 20 3a 20 63 75 72 | 73 6f 72 5f 6d 6f 76 65 | 1 : cur|sor_move|
|000007b0| 64 5f 62 20 3d 20 bc 0e | 00 20 20 20 20 80 c0 00 |d_b = ..|.    ...|
|000007c0| 20 20 20 20 80 0b 20 63 | 75 72 73 6f 72 5f 6d 6f |    .. c|ursor_mo|
|000007d0| 76 65 64 5f 62 00 20 20 | 20 20 20 20 63 75 72 73 |ved_b.  |    curs|
|000007e0| 6f 72 5f 78 20 3d 20 63 | 75 72 73 6f 72 5f 78 20 |or_x = c|ursor_x |
|000007f0| 2b 20 64 78 00 20 20 20 | 20 20 20 63 75 72 73 6f |+ dx.   |   curso|
|00000800| 72 5f 79 20 3d 20 63 75 | 72 73 6f 72 5f 79 20 2b |r_y = cu|rsor_y +|
|00000810| 20 64 79 00 20 20 20 20 | 20 20 63 75 72 73 6f 72 | dy.    |  cursor|
|00000820| 5f 78 20 3d 20 a5 89 28 | 63 75 72 73 6f 72 5f 78 |_x = ..(|cursor_x|
|00000830| 2c 63 75 72 73 6f 72 5f | 72 69 67 68 74 5f 62 6f |,cursor_|right_bo|
|00000840| 75 6e 64 29 00 20 20 20 | 20 20 20 63 75 72 73 6f |und).   |   curso|
|00000850| 72 5f 78 20 3d 20 a5 8d | 28 63 75 72 73 6f 72 5f |r_x = ..|(cursor_|
|00000860| 78 2c 63 75 72 73 6f 72 | 5f 6c 65 66 74 5f 62 6f |x,cursor|_left_bo|
|00000870| 75 6e 64 29 00 20 20 20 | 20 20 20 63 75 72 73 6f |und).   |   curso|
|00000880| 72 5f 79 20 3d 20 a5 89 | 28 63 75 72 73 6f 72 5f |r_y = ..|(cursor_|
|00000890| 79 2c 63 75 72 73 6f 72 | 5f 64 6f 77 6e 5f 62 6f |y,cursor|_down_bo|
|000008a0| 75 6e 64 29 00 20 20 20 | 20 20 20 63 75 72 73 6f |und).   |   curso|
|000008b0| 72 5f 79 20 3d 20 a5 8d | 28 63 75 72 73 6f 72 5f |r_y = ..|(cursor_|
|000008c0| 79 2c 63 75 72 73 6f 72 | 5f 75 70 5f 62 6f 75 6e |y,cursor|_up_boun|
|000008d0| 64 29 00 20 20 20 20 20 | 20 62 77 3d 62 75 74 74 |d).     | bw=butt|
|000008e0| 6f 6e 5f 77 69 64 74 68 | 3a 62 68 3d 62 75 74 74 |on_width|:bh=butt|
|000008f0| 6f 6e 5f 68 65 69 67 68 | 74 3a 80 37 00 20 20 20 |on_heigh|t:.7.   |
|00000900| 20 20 20 6f 6b 2e 62 3d | 53 65 74 4d 6f 75 73 65 |   ok.b=|SetMouse|
|00000910| 7b 70 6f 73 78 2b 62 77 | 2a 28 63 75 72 73 6f 72 |{posx+bw|*(cursor|
|00000920| 5f 78 2b 30 2e 35 29 2c | 70 6f 73 79 2b 62 68 2a |_x+0.5),|posy+bh*|
|00000930| 28 63 75 72 73 6f 72 5f | 79 2b 30 2e 32 35 29 2c |(cursor_|y+0.25),|
|00000940| 30 2c 30 7d 00 20 20 20 | 20 20 20 80 05 20 65 6e |0,0}.   |   .. en|
|00000950| 64 65 76 65 6e 74 6c 6f | 6f 70 00 20 20 20 20 80 |deventlo|op.    .|
|00000960| c0 00 00 20 20 20 20 6b | 65 79 5f 66 6f 75 6e 64 |...    k|ey_found|
|00000970| 5f 62 20 3d 20 bc 0f 00 | 20 20 20 20 6d 65 6e 75 |_b = ...|    menu|
|00000980| 3d 31 2d 31 00 20 20 20 | 20 80 bb 00 20 20 20 20 |=1-1.   | ...    |
|00000990| 20 20 6d 65 6e 75 3d 6d | 65 6e 75 2b 31 00 20 20 |  menu=m|enu+1.  |
|000009a0| 20 20 20 20 80 0b 20 6d | 65 6e 75 5f 6f 70 65 6e |    .. m|enu_open|
|000009b0| 5f 62 28 6d 65 6e 75 29 | 20 80 8a 20 63 6c 6f 73 |_b(menu)| .. clos|
|000009c0| 65 64 5f 6d 65 6e 75 5f | 6b 65 79 73 5f 62 00 20 |ed_menu_|keys_b. |
|000009d0| 20 20 20 20 20 20 20 69 | 74 65 6d 3d 31 2d 31 00 |       i|tem=1-1.|
|000009e0| 20 20 20 20 20 20 20 20 | 80 bb 00 20 20 20 20 20 |        |...     |
|000009f0| 20 20 20 20 20 69 74 65 | 6d 3d 69 74 65 6d 2b 31 |     ite|m=item+1|
|00000a00| 00 20 20 20 20 20 20 20 | 20 20 20 6b 65 79 5f 66 |.       |   key_f|
|00000a10| 6f 75 6e 64 3d 28 69 74 | 65 6d 5f 72 61 77 6b 65 |ound=(it|em_rawke|
|00000a20| 79 28 6d 65 6e 75 2c 69 | 74 65 6d 29 3d 6b 65 79 |y(menu,i|tem)=key|
|00000a30| 29 00 20 20 20 20 20 20 | 20 20 80 bc 20 28 69 74 |).      |  .. (it|
|00000a40| 65 6d 3d 6d 65 6e 75 5f | 69 74 65 6d 73 28 6d 65 |em=menu_|items(me|
|00000a50| 6e 75 29 29 20 80 8a 20 | 6b 65 79 5f 66 6f 75 6e |nu)) .. |key_foun|
|00000a60| 64 00 20 20 20 20 20 20 | 80 02 20 80 0b 00 20 20 |d.      |.. ...  |
|00000a70| 20 20 80 bc 20 28 6d 65 | 6e 75 3d 6e 75 6d 62 65 |  .. (me|nu=numbe|
|00000a80| 72 5f 6f 66 5f 6d 65 6e | 75 73 29 20 80 8a 20 6b |r_of_men|us) .. k|
|00000a90| 65 79 5f 66 6f 75 6e 64 | 00 20 20 20 20 65 78 65 |ey_found|.    exe|
|00000aa0| 63 75 74 65 5f 62 75 74 | 74 6f 6e 5f 62 20 3d 20 |cute_but|ton_b = |
|00000ab0| 6b 65 79 5f 66 6f 75 6e | 64 00 20 20 80 c0 00 00 |key_foun|d.  ....|
|00000ac0| 20 20 2e 6d 65 6e 75 74 | 69 74 6c 65 00 20 20 80 |  .menut|itle.  .|
|00000ad0| 0b 20 61 3d 36 34 20 80 | 42 20 c5 05 3d 23 57 31 |. a=64 .|B ..=#W1|
|00000ae0| 20 80 42 20 c5 04 3c 3e | 30 20 20 20 3b 4d 45 4e | .B ..<>|0   ;MEN|
|00000af0| 55 20 54 49 54 4c 45 20 | 50 52 45 53 53 45 44 00 |U TITLE |PRESSED.|
|00000b00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000b10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000b20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000b30| 20 3b 2e 2e 42 55 54 54 | 4f 4e 20 4d 45 4e 55 2c | ;..BUTT|ON MENU,|
|00000b40| 20 4e 4f 54 20 49 4e 54 | 55 49 54 49 4f 4e 00 20 | NOT INT|UITION. |
|00000b50| 20 20 20 6d 65 6e 75 5f | 6e 75 6d 62 65 72 3d c5 |   menu_|number=.|
|00000b60| 04 00 20 20 20 20 80 0b | 20 6d 65 6e 75 5f 6f 70 |..    ..| menu_op|
|00000b70| 65 6e 5f 62 28 6d 65 6e | 75 5f 6e 75 6d 62 65 72 |en_b(men|u_number|
|00000b80| 29 00 20 20 20 20 20 20 | 80 0b 20 66 69 78 65 64 |).      |.. fixed|
|00000b90| 5f 6f 70 65 6e 5f 62 20 | 3d 20 bc 0f 00 20 20 20 |_open_b |= ...   |
|00000ba0| 20 20 20 20 20 c6 9f 20 | 6d 65 6e 75 5f 6e 75 6d |     .. |menu_num|
|00000bb0| 62 65 72 00 20 20 20 20 | 20 20 20 20 80 2b 20 c5 |ber.    |    .+ .|
|00000bc0| 01 20 6d 65 6e 75 5f 6e | 75 6d 62 65 72 00 20 20 |. menu_n|umber.  |
|00000bd0| 20 20 20 20 20 20 6d 65 | 6e 75 5f 6f 70 65 6e 5f |      me|nu_open_|
|00000be0| 62 28 6d 65 6e 75 5f 6e | 75 6d 62 65 72 29 3d bc |b(menu_n|umber)=.|
|00000bf0| 0f 00 20 20 20 20 20 20 | 80 c0 00 20 20 20 20 80 |..      |...    .|
|00000c00| 22 00 20 20 20 20 20 20 | 6f 70 65 6e 5f 6d 65 6e |".      |open_men|
|00000c10| 75 7b 6d 65 6e 75 5f 6e | 75 6d 62 65 72 7d 00 20 |u{menu_n|umber}. |
|00000c20| 20 20 20 80 c0 00 20 20 | 80 02 20 80 0b 00 00 20 |   ...  |.. .... |
|00000c30| 20 2e 62 75 74 74 6f 6e | 00 20 20 80 0b 20 61 3d | .button|.  .. a=|
|00000c40| 36 34 20 80 42 20 c5 05 | 3e 23 57 31 20 80 42 20 |64 .B ..|>#W1 .B |
|00000c50| c5 05 3c 3e 39 20 20 3b | 42 55 54 54 4f 4e 20 45 |..<>9  ;|BUTTON E|
|00000c60| 58 45 43 00 20 20 20 20 | 6d 65 6e 75 20 20 20 20 |XEC.    |menu    |
|00000c70| 20 20 20 20 20 20 20 20 | 20 3d 20 c5 05 00 20 20 |        | = ...  |
|00000c80| 20 20 69 74 65 6d 20 20 | 20 20 20 20 20 20 20 20 |  item  |        |
|00000c90| 20 20 20 3d 20 c5 04 00 | 20 20 20 20 65 78 65 63 |   = ...|    exec|
|00000ca0| 75 74 65 5f 62 75 74 74 | 6f 6e 5f 62 20 3d 20 bc |ute_butt|on_b = .|
|00000cb0| 0e 00 20 20 80 c0 00 00 | 20 20 3b 20 20 20 20 20 |..  ....|  ;     |
|00000cc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000cd0| 20 20 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |  ======|========|
|00000ce0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 00 20 20 3b 20 |========|===.  ; |
|00000cf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000d00| 20 20 20 20 20 20 20 20 | 20 20 42 75 74 74 6f 6e |        |  Button|
|00000d10| 20 45 78 65 63 75 74 69 | 6f 6e 00 20 20 3b 20 20 | Executi|on.  ;  |
|00000d20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000d30| 20 20 20 20 20 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |     ===|========|
|00000d40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 00 00 |========|======..|
|00000d50| 00 20 20 80 0b 20 65 78 | 65 63 75 74 65 5f 62 75 |.  .. ex|ecute_bu|
|00000d60| 74 74 6f 6e 5f 62 00 20 | 20 20 20 2e 65 78 65 63 |tton_b. |   .exec|
|00000d70| 75 74 65 00 00 20 20 20 | 20 65 78 65 63 75 74 65 |ute..   | execute|
|00000d80| 5f 62 75 74 74 6f 6e 5f | 62 20 3d 20 bc 0f 00 00 |_button_|b = ....|
|00000d90| 20 20 20 20 43 6f 6d 6d | 61 6e 64 4c 69 6e 65 24 |    Comm|andLine$|
|00000da0| 3d 73 65 71 75 65 6e 63 | 65 24 28 6d 65 6e 75 2c |=sequenc|e$(menu,|
|00000db0| 69 74 65 6d 29 00 20 20 | 20 20 73 65 71 75 65 6e |item).  |  sequen|
|00000dc0| 73 24 3d dc 97 28 43 6f | 6d 6d 61 6e 64 4c 69 6e |s$=..(Co|mmandLin|
|00000dd0| 65 24 29 00 20 20 20 20 | 80 0b 20 dc 89 28 73 65 |e$).    |.. ..(se|
|00000de0| 71 75 65 6e 73 24 2c 22 | 5c 22 29 00 20 20 20 20 |quens$,"|\").    |
|00000df0| 20 20 80 0b 20 dc 89 28 | 73 65 71 75 65 6e 73 24 |  .. ..(|sequens$|
|00000e00| 2c 22 5c 71 75 69 74 22 | 29 00 20 20 20 20 20 20 |,"\quit"|).      |
|00000e10| 20 20 65 78 69 74 5f 62 | 20 3d 20 bc 0e 00 20 20 |  exit_b| = ...  |
|00000e20| 20 20 20 20 20 20 80 05 | 20 65 6e 64 65 76 65 6e |      ..| endeven|
|00000e30| 74 6c 6f 6f 70 00 20 20 | 20 20 20 20 80 c0 20 3a |tloop.  |    .. :|
|00000e40| 20 80 0b 20 dc 89 28 73 | 65 71 75 65 6e 73 24 2c | .. ..(s|equens$,|
|00000e50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000e60| 20 20 20 20 20 20 20 20 | 22 5c 72 65 73 74 61 72 |        |"\restar|
|00000e70| 74 22 29 00 20 20 20 20 | 20 20 20 20 72 65 73 74 |t").    |    rest|
|00000e80| 61 72 74 5f 62 20 3d 20 | bc 0e 20 3a 20 65 78 69 |art_b = |.. : exi|
|00000e90| 74 5f 62 20 3d 20 bc 0e | 00 20 20 20 20 20 20 20 |t_b = ..|.       |
|00000ea0| 20 80 05 20 65 6e 64 65 | 76 65 6e 74 6c 6f 6f 70 | .. ende|ventloop|
|00000eb0| 00 20 20 20 20 20 20 80 | c0 20 3a 20 80 0b 20 dc |.      .|. : .. .|
|00000ec0| 89 28 73 65 71 75 65 6e | 73 24 2c 20 20 20 20 20 |.(sequen|s$,     |
|00000ed0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000ee0| 20 20 20 22 5c 73 6c 65 | 65 70 22 29 00 20 20 20 |   "\sle|ep").   |
|00000ef0| 20 20 20 20 20 73 6c 65 | 65 70 7b 7d 00 20 20 20 |     sle|ep{}.   |
|00000f00| 20 20 20 20 20 80 05 20 | 65 76 65 6e 74 6c 6f 6f |     .. |eventloo|
|00000f10| 70 00 20 20 20 20 20 20 | 80 c0 20 3a 20 80 0b 20 |p.      |.. : .. |
|00000f20| dc 89 28 73 65 71 75 65 | 6e 73 24 2c 20 20 20 20 |..(seque|ns$,    |
|00000f30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000f40| 20 20 20 20 22 5c 74 69 | 74 6c 65 22 29 00 20 20 |    "\ti|tle").  |
|00000f50| 20 20 20 20 20 20 80 05 | 20 65 76 65 6e 74 6c 6f |      ..| eventlo|
|00000f60| 6f 70 00 20 20 20 20 20 | 20 80 c0 20 3a 20 74 61 |op.     | .. : ta|
|00000f70| 67 70 6f 73 3d dc 89 28 | 73 65 71 75 65 6e 73 24 |gpos=..(|sequens$|
|00000f80| 2c 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,       |        |
|00000f90| 20 20 20 20 20 22 5c 70 | 72 69 6e 74 22 29 20 3a |     "\p|rint") :|
|00000fa0| 20 80 0b 20 74 61 67 70 | 6f 73 00 20 20 20 20 20 | .. tagp|os.     |
|00000fb0| 20 20 20 20 d2 02 00 20 | 20 20 20 20 20 20 20 20 |    ... |        |
|00000fc0| dd 81 20 28 dc 91 28 43 | 6f 6d 6d 61 6e 64 4c 69 |.. (..(C|ommandLi|
|00000fd0| 6e 65 24 2c 74 61 67 70 | 6f 73 2b 35 29 29 00 20 |ne$,tagp|os+5)). |
|00000fe0| 20 20 20 20 20 20 20 20 | 80 05 20 65 78 65 63 75 |        |.. execu|
|00000ff0| 74 65 64 00 20 20 20 20 | 20 20 80 c0 20 3a 20 74 |ted.    |  .. : t|
|00001000| 61 67 70 6f 73 3d dc 89 | 28 73 65 71 75 65 6e 73 |agpos=..|(sequens|
|00001010| 24 2c 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |$,      |        |
|00001020| 20 20 20 20 20 20 22 5c | 78 22 29 20 20 20 20 20 |      "\|x")     |
|00001030| 3a 20 80 0b 20 74 61 67 | 70 6f 73 00 20 20 20 20 |: .. tag|pos.    |
|00001040| 20 20 20 20 20 73 65 71 | 75 65 6e 73 24 20 20 20 |     seq|uens$   |
|00001050| 20 20 3d 20 70 72 65 66 | 69 78 24 2b 22 20 22 2b |  = pref|ix$+" "+|
|00001060| dc 91 28 73 65 71 75 65 | 6e 73 24 20 20 20 20 20 |..(seque|ns$     |
|00001070| 2c 74 61 67 70 6f 73 2b | 31 29 00 20 20 20 20 20 |,tagpos+|1).     |
|00001080| 20 20 20 20 43 6f 6d 6d | 61 6e 64 4c 69 6e 65 24 |    Comm|andLine$|
|00001090| 20 3d 20 70 72 65 66 69 | 78 24 2b 22 20 22 2b dc | = prefi|x$+" "+.|
|000010a0| 91 28 43 6f 6d 6d 61 6e | 64 4c 69 6e 65 24 20 2c |.(Comman|dLine$ ,|
|000010b0| 74 61 67 70 6f 73 2b 31 | 29 00 20 20 20 20 20 20 |tagpos+1|).      |
|000010c0| 80 c0 00 20 20 20 20 80 | c0 00 00 20 20 20 20 80 |...    .|...    .|
|000010d0| 0b 20 dc 81 28 73 65 71 | 75 65 6e 73 24 2c 34 29 |. ..(seq|uens$,4)|
|000010e0| 3d 22 3c 77 62 3e 22 00 | 20 20 20 20 20 20 63 6f |="<wb>".|      co|
|000010f0| 6d 6d 61 6e 64 24 3d dc | 91 28 43 6f 6d 6d 61 6e |mmand$=.|.(Comman|
|00001100| 64 4c 69 6e 65 24 2c 34 | 29 00 20 20 20 20 20 20 |dLine$,4|).      |
|00001110| 80 0b 20 dc 81 28 63 6f | 6d 6d 61 6e 64 24 2c 31 |.. ..(co|mmand$,1|
|00001120| 29 3d 22 20 22 00 20 20 | 20 20 20 20 20 20 63 6f |)=" ".  |      co|
|00001130| 6d 6d 61 6e 64 24 3d dc | 91 28 63 6f 6d 6d 61 6e |mmand$=.|.(comman|
|00001140| 64 24 2c 31 29 00 20 20 | 20 20 20 20 80 c0 00 20 |d$,1).  |    ... |
|00001150| 20 20 20 20 20 80 0b 20 | 52 75 6e 46 72 6f 6d 57 |     .. |RunFromW|
|00001160| 42 7b 63 6f 6d 6d 61 6e | 64 24 7d 00 20 20 20 20 |B{comman|d$}.    |
|00001170| 20 20 80 22 00 20 20 20 | 20 20 20 20 20 b5 8d 20 |  .".   |     .. |
|00001180| 22 42 75 74 74 6f 6e 42 | 61 72 20 6d 65 73 73 61 |"ButtonB|ar messa|
|00001190| 67 65 22 2c 22 53 6f 6d | 65 74 68 69 6e 67 20 77 |ge","Som|ething w|
|000011a0| 72 6f 6e 67 2e 22 2c 22 | 49 20 73 65 65 22 00 20 |rong.","|I see". |
|000011b0| 20 20 20 20 20 80 c0 00 | 20 20 20 20 20 20 80 05 |     ...|      ..|
|000011c0| 20 65 78 65 63 75 74 65 | 64 00 20 20 20 20 80 c0 | execute|d.    ..|
|000011d0| 00 00 20 20 20 20 65 78 | 74 72 61 63 74 5f 70 61 |..    ex|tract_pa|
|000011e0| 74 68 7b 73 65 71 75 65 | 6e 73 24 7d 00 20 20 20 |th{seque|ns$}.   |
|000011f0| 20 70 61 74 68 24 3d 50 | 41 52 41 4d 31 24 20 3a | path$=P|ARAM1$ :|
|00001200| 20 63 6f 6d 6d 61 6e 64 | 24 3d 50 41 52 41 4d 31 | command|$=PARAM1|
|00001210| 24 2b 50 41 52 41 4d 32 | 24 00 00 20 20 20 20 69 |$+PARAM2|$..    i|
|00001220| 6e 74 65 72 6e 61 6c 3d | 28 dc 97 28 63 6f 6d 6d |nternal=|(..(comm|
|00001230| 61 6e 64 24 29 3d 22 65 | 63 68 6f 22 29 00 00 20 |and$)="e|cho").. |
|00001240| 20 20 20 3b 72 65 73 75 | 3d 57 72 69 74 65 46 69 |   ;resu|=WriteFi|
|00001250| 6c 65 28 30 2c 22 54 3a | 70 61 74 68 2d 6f 75 74 |le(0,"T:|path-out|
|00001260| 22 29 00 20 20 20 20 3b | 45 78 65 63 75 74 65 5f |").    ;|Execute_|
|00001270| 20 22 70 61 74 68 22 2c | 30 2c 50 65 65 6b 2e 6c | "path",|0,Peek.l|
|00001280| 28 41 64 64 72 20 46 69 | 6c 65 28 30 29 29 00 20 |(Addr Fi|le(0)). |
|00001290| 20 20 20 3b 45 78 65 63 | 20 22 70 61 74 68 20 3e |   ;Exec| "path >|
|000012a0| 74 3a 70 61 74 68 6f 75 | 74 22 00 20 20 20 20 3b |t:pathou|t".    ;|
|000012b0| 43 6c 6f 73 65 46 69 6c | 65 20 30 00 00 20 20 20 |CloseFil|e 0..   |
|000012c0| 20 80 0b 20 28 28 69 6e | 74 65 72 6e 61 6c 20 80 | .. ((in|ternal .|
|000012d0| 8a 20 be 15 28 63 6f 6d | 6d 61 6e 64 24 29 29 3d |. ..(com|mand$))=|
|000012e0| bc 0f 29 20 80 42 20 be | 15 28 22 43 3a 22 2b 63 |..) .B .|.("C:"+c|
|000012f0| 6f 6d 6d 61 6e 64 24 29 | 00 20 20 20 20 20 20 63 |ommand$)|.      c|
|00001300| 6f 6d 6d 61 6e 64 24 20 | 20 20 20 20 3d 20 22 43 |ommand$ |    = "C|
|00001310| 3a 22 2b 63 6f 6d 6d 61 | 6e 64 24 00 20 20 20 20 |:"+comma|nd$.    |
|00001320| 20 20 43 6f 6d 6d 61 6e | 64 4c 69 6e 65 24 20 3d |  Comman|dLine$ =|
|00001330| 20 22 43 3a 22 2b 43 6f | 6d 6d 61 6e 64 4c 69 6e | "C:"+Co|mmandLin|
|00001340| 65 24 00 20 20 20 20 80 | c0 00 00 20 20 20 20 80 |e$.    .|...    .|
|00001350| 0b 20 be 15 28 63 6f 6d | 6d 61 6e 64 24 29 20 80 |. ..(com|mand$) .|
|00001360| 8a 20 69 6e 74 65 72 6e | 61 6c 00 20 20 20 20 20 |. intern|al.     |
|00001370| 20 73 65 71 75 65 24 3d | 22 22 00 20 20 20 20 20 | seque$=|"".     |
|00001380| 20 80 0b 20 70 61 74 68 | 24 3c 3e 22 22 00 20 20 | .. path|$<>"".  |
|00001390| 20 20 20 20 20 20 73 65 | 71 75 65 24 3d 22 63 64 |      se|que$="cd|
|000013a0| 20 22 2b 70 61 74 68 24 | 2b dc 86 28 31 30 29 00 | "+path$|+..(10).|
|000013b0| 20 20 20 20 20 20 80 c0 | 00 20 20 20 20 20 20 73 |      ..|.      s|
|000013c0| 65 71 75 65 24 3d 73 65 | 71 75 65 24 2b 22 52 75 |eque$=se|que$+"Ru|
|000013d0| 6e 20 22 2b 43 6f 6d 6d | 61 6e 64 4c 69 6e 65 24 |n "+Comm|andLine$|
|000013e0| 00 00 20 20 20 20 20 20 | 72 65 73 75 3d be 12 28 |..      |resu=..(|
|000013f0| 30 2c 22 4e 49 4c 3a 22 | 29 00 20 20 20 20 20 20 |0,"NIL:"|).      |
|00001400| fe 1f 20 73 65 71 75 65 | 24 2c 30 2c da 02 2e 6c |.. seque|$,0,...l|
|00001410| 28 80 b8 20 be 10 28 30 | 29 29 00 20 20 20 20 20 |(.. ..(0|)).     |
|00001420| 20 be 02 20 30 00 20 20 | 20 20 20 20 3b 45 78 65 | .. 0.  |    ;Exe|
|00001430| 63 20 73 65 71 75 65 24 | 00 20 20 20 20 80 c0 00 |c seque$|.    ...|
|00001440| 00 00 20 20 20 20 65 78 | 65 63 75 74 65 64 00 00 |..    ex|ecuted..|
|00001450| 20 20 20 20 80 0b 20 73 | 74 61 62 6c 65 5f 62 61 |    .. s|table_ba|
|00001460| 72 5f 62 20 3d 20 bc 0f | 00 20 20 20 20 20 20 c6 |r_b = ..|.      .|
|00001470| 9f 20 6d 65 6e 75 00 20 | 20 20 20 20 20 80 2b 20 |. menu. |     .+ |
|00001480| c5 01 20 6d 65 6e 75 00 | 20 20 20 20 20 20 6d 65 |.. menu.|      me|
|00001490| 6e 75 5f 6f 70 65 6e 5f | 62 20 28 6d 65 6e 75 29 |nu_open_|b (menu)|
|000014a0| 20 3d 20 bc 0f 00 20 20 | 20 20 20 20 c5 1f 20 23 | = ...  |    .. #|
|000014b0| 57 31 00 20 20 20 20 80 | c0 00 00 20 20 20 20 80 |W1.    .|...    .|
|000014c0| 0b 20 28 be 15 28 63 6f | 6d 6d 61 6e 64 24 29 20 |. (..(co|mmand$) |
|000014d0| 80 8a 20 69 6e 74 65 72 | 6e 61 6c 5f 62 29 3d bc |.. inter|nal_b)=.|
|000014e0| 0f 00 20 20 20 20 20 20 | b5 8d 20 62 62 6d 24 2c |..      |.. bbm$,|
|000014f0| 22 46 69 6c 65 20 6e 6f | 74 20 66 6f 75 6e 64 3a |"File no|t found:|
|00001500| 22 2b 6e 24 2b 63 6f 6d | 6d 61 6e 64 24 2c 22 49 |"+n$+com|mand$,"I|
|00001510| 20 73 65 65 22 00 20 20 | 20 20 20 20 c5 1f 20 23 | see".  |    .. #|
|00001520| 57 31 00 20 20 20 20 80 | c0 00 00 20 20 20 20 80 |W1.    .|...    .|
|00001530| 0b 20 72 75 6e 61 6e 64 | 64 69 65 5f 62 20 3a 20 |. runand|die_b : |
|00001540| 65 78 69 74 5f 62 20 3d | 20 bc 0e 20 3a 20 80 05 |exit_b =| .. : ..|
|00001550| 20 65 6e 64 65 76 65 6e | 74 6c 6f 6f 70 20 3a 20 | endeven|tloop : |
|00001560| 80 c0 00 20 20 20 20 80 | 0b 20 72 75 6e 61 6e 64 |...    .|. runand|
|00001570| 73 6c 65 65 70 5f 62 20 | 3a 20 73 6c 65 65 70 7b |sleep_b |: sleep{|
|00001580| 7d 20 3a 20 80 c0 00 00 | 20 20 20 20 80 05 20 65 |} : ....|    .. e|
|00001590| 76 65 6e 74 6c 6f 6f 70 | 00 20 20 80 02 20 80 0b |ventloop|.  .. ..|
|000015a0| 00 00 20 20 80 0b 20 28 | 20 61 3d 36 34 20 80 42 |..  .. (| a=64 .B|
|000015b0| 20 c5 05 3d 23 57 31 20 | 80 42 20 c5 04 3d 30 29 | ..=#W1 |.B ..=0)|
|000015c0| 20 20 20 20 3b 20 51 55 | 49 54 00 20 20 20 20 65 |    ; QU|IT.    e|
|000015d0| 78 69 74 5f 62 20 3d 20 | bc 0e 20 3a 20 80 05 20 |xit_b = |.. : .. |
|000015e0| 65 6e 64 65 76 65 6e 74 | 6c 6f 6f 70 00 20 20 80 |endevent|loop.  .|
|000015f0| 02 20 80 0b 00 00 20 20 | 2e 6d 65 6e 75 00 20 20 |. ....  |.menu.  |
|00001600| 80 0b 20 28 20 61 3d 32 | 35 36 20 80 42 20 20 c5 |.. ( a=2|56 .B  .|
|00001610| 07 3d 23 50 52 4f 4a 45 | 43 54 20 80 42 20 c5 05 |.=#PROJE|CT .B ..|
|00001620| 3d 23 57 31 29 00 00 20 | 20 20 20 80 0b 20 c5 08 |=#W1).. |   .. ..|
|00001630| 3d 23 51 55 49 54 00 20 | 20 20 20 20 20 65 78 69 |=#QUIT. |     exi|
|00001640| 74 5f 62 20 3d 20 bc 0e | 00 20 20 20 20 80 05 20 |t_b = ..|.    .. |
|00001650| 65 6e 64 65 76 65 6e 74 | 6c 6f 6f 70 20 3a 20 80 |endevent|loop : .|
|00001660| 02 20 80 0b 20 20 20 20 | 20 20 20 20 20 20 20 20 |. ..    |        |
|00001670| 20 20 3a 20 80 0b 20 c5 | 08 3d 23 52 45 53 54 41 |  : .. .|.=#RESTA|
|00001680| 52 54 00 20 20 20 20 20 | 20 65 78 69 74 5f 62 20 |RT.     | exit_b |
|00001690| 20 20 20 3d 20 bc 0e 00 | 20 20 20 20 20 20 72 65 |   = ...|      re|
|000016a0| 73 74 61 72 74 5f 62 20 | 3d 20 bc 0e 00 20 20 20 |start_b |= ...   |
|000016b0| 20 80 05 20 65 6e 64 65 | 76 65 6e 74 6c 6f 6f 70 | .. ende|ventloop|
|000016c0| 3a 20 80 02 20 80 0b 20 | 20 20 20 20 20 20 20 20 |: .. .. |        |
|000016d0| 20 20 20 20 20 20 3a 20 | 80 0b 20 c5 08 3d 23 43 |      : |.. ..=#C|
|000016e0| 4c 4f 53 45 41 4c 4c 00 | 20 20 20 20 20 20 80 16 |LOSEALL.|      ..|
|000016f0| 20 6d 65 6e 75 5f 6e 75 | 6d 62 65 72 3d 31 20 80 | menu_nu|mber=1 .|
|00001700| 18 20 6e 75 6d 62 65 72 | 5f 6f 66 5f 6d 65 6e 75 |. number|_of_menu|
|00001710| 73 00 20 20 20 20 20 20 | 20 20 80 0b 20 6d 65 6e |s.      |  .. men|
|00001720| 75 5f 6f 70 65 6e 5f 62 | 28 6d 65 6e 75 5f 6e 75 |u_open_b|(menu_nu|
|00001730| 6d 62 65 72 29 00 20 20 | 20 20 20 20 20 20 20 20 |mber).  |        |
|00001740| c6 9f 20 6d 65 6e 75 5f | 6e 75 6d 62 65 72 00 20 |.. menu_|number. |
|00001750| 20 20 20 20 20 20 20 20 | 20 80 2b 20 c5 01 20 6d |        | .+ .. m|
|00001760| 65 6e 75 5f 6e 75 6d 62 | 65 72 00 20 20 20 20 20 |enu_numb|er.     |
|00001770| 20 20 20 20 20 6d 65 6e | 75 5f 6f 70 65 6e 5f 62 |     men|u_open_b|
|00001780| 28 6d 65 6e 75 5f 6e 75 | 6d 62 65 72 29 3d bc 0f |(menu_nu|mber)=..|
|00001790| 00 20 20 20 20 20 20 20 | 20 80 c0 00 20 20 20 20 |.       | ...    |
|000017a0| 20 20 80 17 00 20 20 20 | 20 80 05 20 65 6e 64 65 |  ...   | .. ende|
|000017b0| 76 65 6e 74 6c 6f 6f 70 | 20 3a 20 80 c0 20 20 20 |ventloop| : ..   |
|000017c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 20 80 0b |        |    : ..|
|000017d0| 20 c5 08 3d 23 4f 50 45 | 4e 41 4c 4c 00 20 20 20 | ..=#OPE|NALL.   |
|000017e0| 20 20 20 80 16 20 6d 65 | 6e 75 3d 31 20 80 18 20 |   .. me|nu=1 .. |
|000017f0| 6e 75 6d 62 65 72 5f 6f | 66 5f 6d 65 6e 75 73 00 |number_o|f_menus.|
|00001800| 20 20 20 20 20 20 20 20 | 80 0b 20 6d 65 6e 75 5f |        |.. menu_|
|00001810| 6f 70 65 6e 5f 62 28 6d | 65 6e 75 29 3d bc 0f 00 |open_b(m|enu)=...|
|00001820| 20 20 20 20 20 20 20 20 | 20 20 6f 70 65 6e 5f 6d |        |  open_m|
|00001830| 65 6e 75 7b 6d 65 6e 75 | 7d 00 20 20 20 20 20 20 |enu{menu|}.      |
|00001840| 20 20 80 c0 00 20 20 20 | 20 20 20 80 17 00 20 20 |  ...   |   ...  |
|00001850| 20 20 80 05 20 65 6e 64 | 65 76 65 6e 74 6c 6f 6f |  .. end|eventloo|
|00001860| 70 20 3a 20 80 c0 20 20 | 20 20 20 20 20 20 20 20 |p : ..  |        |
|00001870| 20 20 20 20 20 3a 20 80 | 0b 20 c5 08 3d 23 50 4f |     : .|. ..=#PO|
|00001880| 53 00 20 20 20 20 20 20 | c6 9f 20 23 57 31 00 20 |S.      |.. #W1. |
|00001890| 20 20 20 20 20 c5 3c 20 | 23 57 31 00 20 20 20 20 |     .< |#W1.    |
|000018a0| 20 20 80 16 20 6d 65 6e | 75 3d 31 20 80 18 20 6e |  .. men|u=1 .. n|
|000018b0| 75 6d 62 65 72 5f 6f 66 | 5f 6d 65 6e 75 73 00 20 |umber_of|_menus. |
|000018c0| 20 20 20 20 20 20 20 80 | 0b 20 6d 65 6e 75 5f 6f |       .|. menu_o|
|000018d0| 70 65 6e 5f 62 28 6d 65 | 6e 75 29 00 20 20 20 20 |pen_b(me|nu).    |
|000018e0| 20 20 20 20 20 20 c6 9f | 20 6d 65 6e 75 00 20 20 |      ..| menu.  |
|000018f0| 20 20 20 20 20 20 20 20 | 80 2b 20 c5 01 20 6d 65 |        |.+ .. me|
|00001900| 6e 75 00 20 20 20 20 20 | 20 20 20 20 20 6d 65 6e |nu.     |     men|
|00001910| 75 5f 6f 70 65 6e 5f 62 | 28 6d 65 6e 75 29 3d bc |u_open_b|(menu)=.|
|00001920| 0f 00 20 20 20 20 20 20 | 20 20 80 02 20 80 0b 00 |..      |  .. ...|
|00001930| 20 20 20 20 20 20 80 17 | 00 20 20 20 20 20 20 c5 |      ..|.      .|
|00001940| 01 20 23 57 31 2c 70 6f | 73 78 2c 70 6f 73 79 2c |. #W1,po|sx,posy,|
|00001950| 62 75 74 74 6f 6e 5f 77 | 69 64 74 68 2a 6e 75 6d |button_w|idth*num|
|00001960| 62 65 72 5f 6f 66 5f 6d | 65 6e 75 73 2b 35 2c 62 |ber_of_m|enus+5,b|
|00001970| 75 74 74 6f 6e 5f 68 65 | 69 67 68 74 2c 34 30 39 |utton_he|ight,409|
|00001980| 38 2b 24 30 30 38 2c 22 | 4d 6f 76 65 20 4d 65 22 |8+$008,"|Move Me"|
|00001990| 2c 31 2c 32 00 20 20 20 | 20 20 20 66 69 6e 3d 30 |,1,2.   |   fin=0|
|000019a0| 00 20 20 20 20 20 20 80 | bb 20 3a 20 61 2e 6c 3d |.      .|. : a.l=|
|000019b0| c5 02 20 3a 20 80 bc 20 | 61 3d 24 32 30 30 00 20 |.. : .. |a=$200. |
|000019c0| 20 20 20 20 20 70 6f 73 | 78 3d c5 20 00 20 20 20 |     pos|x=. .   |
|000019d0| 20 20 20 70 6f 73 79 3d | c5 21 00 20 20 20 20 20 |   posy=|.!.     |
|000019e0| 20 c5 3c 20 23 57 31 00 | 20 20 20 20 20 20 c5 01 | .< #W1.|      ..|
|000019f0| 20 23 57 31 2c 70 6f 73 | 78 2c 70 6f 73 79 2c 62 | #W1,pos|x,posy,b|
|00001a00| 75 74 74 6f 6e 5f 77 69 | 64 74 68 2a 6e 75 6d 62 |utton_wi|dth*numb|
|00001a10| 65 72 5f 6f 66 5f 6d 65 | 6e 75 73 2b 35 2c 62 75 |er_of_me|nus+5,bu|
|00001a20| 74 74 6f 6e 5f 68 65 69 | 67 68 74 2c 24 31 38 30 |tton_hei|ght,$180|
|00001a30| 30 2c 22 22 2c 31 2c 32 | 00 20 20 20 20 20 20 c6 |0,"",1,2|.      .|
|00001a40| 8e 20 30 2c 23 57 31 00 | 20 20 20 20 20 20 c4 02 |. 0,#W1.|      ..|
|00001a50| 20 23 57 31 00 20 20 20 | 20 20 20 63 6f 75 6e 74 | #W1.   |   count|
|00001a60| 5f 63 75 72 73 6f 72 5f | 62 6f 75 6e 64 73 7b 7d |_cursor_|bounds{}|
|00001a70| 00 20 20 20 20 80 05 20 | 65 6e 64 65 76 65 6e 74 |.    .. |endevent|
|00001a80| 6c 6f 6f 70 20 3a 20 80 | 02 20 80 0b 20 20 20 20 |loop : .|. ..    |
|00001a90| 20 20 20 20 20 20 20 20 | 20 20 3a 20 80 0b 20 c5 |        |  : .. .|
|00001aa0| 08 3d 23 53 41 56 45 50 | 4f 53 00 20 20 20 20 20 |.=#SAVEP|OS.     |
|00001ab0| 20 6e 6f 74 5f 77 72 69 | 74 74 65 6e 5f 62 20 3d | not_wri|tten_b =|
|00001ac0| 20 bc 0e 00 20 20 20 20 | 20 20 80 0b 20 be 11 28 | ...    |  .. ..(|
|00001ad0| 23 46 31 2c 6d 65 6e 75 | 66 69 6c 65 24 29 3c 3e |#F1,menu|file$)<>|
|00001ae0| bc 0f 00 20 20 20 20 20 | 20 20 20 80 0b 20 be 12 |...     |   .. ..|
|00001af0| 28 23 46 32 2c 22 54 3a | 62 75 74 74 6f 6e 62 61 |(#F2,"T:|buttonba|
|00001b00| 72 2e 74 6d 70 22 29 3c | 3e bc 0f 00 20 20 20 20 |r.tmp")<|>...    |
|00001b10| 20 20 20 20 20 20 20 be | 08 20 23 46 31 00 20 20 |       .|. #F1.  |
|00001b20| 20 20 20 20 20 20 20 20 | 20 be 07 20 23 46 32 00 |        | .. #F2.|
|00001b30| 20 20 20 20 20 20 20 20 | 20 20 20 80 0c 20 80 89 |        |   .. ..|
|00001b40| 20 be 0d 28 23 46 31 29 | 00 20 20 20 20 20 20 20 | ..(#F1)|.       |
|00001b50| 20 20 20 20 20 20 6c 69 | 6e 65 5f 24 3d dd 01 28 |      li|ne_$=..(|
|00001b60| 31 36 30 29 00 20 20 20 | 20 20 20 20 20 20 20 20 |160).   |        |
|00001b70| 20 20 80 0b 20 6e 6f 74 | 5f 77 72 69 74 74 65 6e |  .. not|_written|
|00001b80| 5f 62 20 20 80 42 20 28 | dc 81 28 6c 69 6e 65 5f |_b  .B (|..(line_|
|00001b90| 24 2c 31 29 3d 22 3a 22 | 29 00 20 20 20 20 20 20 |$,1)=":"|).      |
|00001ba0| 20 20 20 20 20 20 20 20 | 20 6e 6f 74 5f 77 72 69 |        | not_wri|
|00001bb0| 74 74 65 6e 5f 62 20 3d | 20 bc 0f 00 20 20 20 20 |tten_b =| ...    |
|00001bc0| 20 20 20 20 20 20 20 20 | 20 20 20 dd 81 20 22 5c |        |   .. "\|
|00001bd0| 70 6f 73 69 74 69 6f 6e | 20 22 2b dd 83 28 70 6f |position| "+..(po|
|00001be0| 73 78 29 2b 22 2c 22 2b | dd 83 28 70 6f 73 79 29 |sx)+","+|..(posy)|
|00001bf0| 2b 6e 24 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |+n$.    |        |
|00001c00| 20 80 c0 00 20 20 20 20 | 20 20 20 20 20 20 20 20 | ...    |        |
|00001c10| 20 80 0b 20 6e 6f 74 5f | 77 72 69 74 74 65 6e 5f | .. not_|written_|
|00001c20| 62 20 80 42 20 28 dc 89 | 28 dc 97 28 6c 69 6e 65 |b .B (..|(..(line|
|00001c30| 5f 24 29 2c 22 5c 70 6f | 73 69 74 69 6f 6e 22 29 |_$),"\po|sition")|
|00001c40| 29 00 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|00001c50| 20 6e 6f 74 5f 77 72 69 | 74 74 65 6e 5f 62 20 3d | not_wri|tten_b =|
|00001c60| bc 0f 00 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |...     |        |
|00001c70| 20 20 dd 81 20 22 5c 70 | 6f 73 69 74 69 6f 6e 20 |  .. "\p|osition |
|00001c80| 22 2b dd 83 28 70 6f 73 | 78 29 2b 22 2c 22 2b dd |"+..(pos|x)+","+.|
|00001c90| 83 28 70 6f 73 79 29 2b | 6e 24 00 20 20 20 20 20 |.(posy)+|n$.     |
|00001ca0| 20 20 20 20 20 20 20 20 | 80 22 00 20 20 20 20 20 |        |.".     |
|00001cb0| 20 20 20 20 20 20 20 20 | 20 20 dd 81 20 6c 69 6e |        |  .. lin|
|00001cc0| 65 5f 24 2b 6e 24 00 20 | 20 20 20 20 20 20 20 20 |e_$+n$. |        |
|00001cd0| 20 20 20 20 80 c0 00 20 | 20 20 20 20 20 20 20 20 |    ... |        |
|00001ce0| 20 20 80 c1 00 20 20 20 | 20 20 20 20 20 20 20 20 |  ...   |        |
|00001cf0| be 02 20 23 46 32 00 20 | 20 20 20 20 20 20 20 20 |.. #F2. |        |
|00001d00| 20 20 be 02 20 23 46 31 | 00 00 20 20 20 20 20 20 |  .. #F1|..      |
|00001d10| 20 20 20 20 20 72 65 73 | 3d be 12 28 23 46 31 2c |     res|=..(#F1,|
|00001d20| 22 4e 49 4c 3a 22 29 00 | 20 20 20 20 20 20 20 20 |"NIL:").|        |
|00001d30| 20 20 20 fe 1f 20 22 63 | 6f 70 79 20 54 3a 62 75 |   .. "c|opy T:bu|
|00001d40| 74 74 6f 6e 62 61 72 2e | 74 6d 70 20 22 2b 6d 65 |ttonbar.|tmp "+me|
|00001d50| 6e 75 66 69 6c 65 24 2c | 30 2c da 02 2e 6c 28 80 |nufile$,|0,...l(.|
|00001d60| b8 20 be 10 28 30 29 29 | 00 20 20 20 20 20 20 20 |. ..(0))|.       |
|00001d70| 20 20 20 20 be 02 20 23 | 46 31 00 20 20 20 20 20 |    .. #|F1.     |
|00001d80| 20 20 20 80 c0 00 20 20 | 20 20 20 20 80 c0 00 20 |   ...  |    ... |
|00001d90| 20 20 20 80 02 20 80 0b | 00 20 20 80 02 20 80 0b |   .. ..|.  .. ..|
|00001da0| 00 00 20 20 65 6e 64 65 | 76 65 6e 74 6c 6f 6f 70 |..  ende|ventloop|
|00001db0| 00 80 bc 20 65 78 69 74 | 5f 62 00 00 00          |... exit|_b...   |
+--------+-------------------------+-------------------------+--------+--------+